home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / db3.arc / INVSUBTO.PRG < prev    next >
Encoding:
Text File  |  1984-10-25  |  768 b   |  26 lines
  1. ******************* Invsubto COMMAND FILE ***********************
  2. * Sub-Module of the Invprint command file.
  3. *      Prints subtotals for Taxed and Untaxed items at the end of
  4. * a page, the top of a new page and at the end of the invoice.
  5. *****************************************************************
  6. *
  7. IF Taxed = 0
  8.    FirstSub = SPACE(11)
  9.    A = SPACE(9)
  10. ELSE
  11.    FirstSub = STR(Taxed,11,2)
  12.    A = '---------'
  13. ENDIF
  14. IF Service = 0
  15.    SecondSub = SPACE(11)
  16.    B = ' '
  17. ELSE
  18.    SecondSub = STR(Service,11,2)
  19.    B = '  ---------'
  20. ENDIF
  21. *
  22. ? SPACE(56) + A + B
  23. ? SPACE(15) + 'Sub-totals:   ' + SPACE(25) +  FirstSub + SecondSub
  24. *
  25. RETURN
  26.